uninit: remove undocumented suport for specifying files to act on

I think this was just copied from another command without paying
attention to what it did, because there does not seem to be any valid
reason to want to only unannex some files when running uninit.

diff --git a/Command/Uninit.hs b/Command/Uninit.hs
index aee530e796698be0d59adcc625cd0694f2baee18..48453392f8d04d4f85fbaafaecee3d4da8eb610f 100644 (file)
--- a/Command/Uninit.hs
+++ b/Command/Uninit.hs
@@ -28,7 +28,7 @@ cmd :: Command
 cmd = addCheck check $ 
        command "uninit" SectionUtility
                "de-initialize git-annex and clean out repository"
-               paramPaths (withParams seek)
+               paramNothing (withParams seek)
 
 check :: Annex ()
 check = do
@@ -48,9 +48,9 @@ check = do
        revhead = inRepo $ Git.Command.pipeReadStrict
                [Param "rev-parse", Param "--abbrev-ref", Param "HEAD"]
 
-seek :: CmdParams -> CommandSeek
-seek ps = do
-       l <- workTreeItems ww ps
+seek :: CommandParams -> CommandSeek
+seek = withNothing $ do
+       l <- workTreeItems ww []
        withFilesNotInGit
                (CheckGitIgnore False)
                (WarnUnmatchWorkTreeItems "uninit")